home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
vlib250.zip
/
VLIBDEMO.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1994-11-10
|
13KB
|
359 lines
Form1
#Visualib 2.50 Demo for Visual Basic
Form1
Panel3D2
SSPanel
MS Sans Serif
Panel3D1
SSPanel
Spin1
SpinButton
Clear
SSCommand
Clear
mnuFile
&File
mnuFileExit
E&xit
@ Form_Load"
HScroll1_Change'
label1
Caption
Value
HScroll1_Scroll
Label1_Click
HScroll1|
mnuFileExit_Click
InitialVisualib
InitializeVisualib
status
Licenseinfo
CreateViewerR
viewer1W
vname
SelectViewer
viewer21
PenColor
VL_BLUE
displayviewerframee
VL_CURRENT0
TextColor
VL_BLACK8
TRANSPARENT
DisplayViewerNameL
InitVlib{
Command3D1_Click|
Start_Click
Clear_Click
Clears_Click
Star2Dq
Spin1_SpinDown
Spin1_SpinUp
label
viewer31i
viewer2
viewer3
demoa
BOOLP
InitApplicationM
hInstance
rectl
VECTOR3B
parameterd
light1
CreateLight6
VL_DISTLIGHT
SelectLight;
SetLightCoordinateType
VL_WORLDLIGHT
VSET3y
ShadingParameter
VL_LIGHTDIRECTION
ShadingColor
VL_LIGHTCOLOR
SwitchLight
light2
VL_POINTLIGHT
VL_LIGHTLOCATION
light3j
light4Z
VL_SPOTLIGHT
ShadingFactor
VL_SPOTLIGHTANGLE
VL_SPOTLIGHTSPREAD
light7
VL_LIGHTINTENSITY1
light89
GetDC
GetDeviceCaps
BITSPIXEL
ShadingOption
VL_SHADINGMETHOD
VL_PHONGSHADE
VL_DEPTHBUFFER
VL_FLATSHADEC
VL_LOCALVIEWER
ReleaseDCP
VL_BACKFACEREMOVALv
SelectMaterialB
mater0
CreateMaterial
VL_MATERIALSPECULARp
VL_SPECULARREFLECT
VL_MATERIALAMBIENT
VL_AMBIENTREFLECTs
VL_MATERIALDIFFUSE
VL_SHININESS
mater1
mater2
mater3
mater4+
SetRect!
VL_TWOD_
VL_HORZFIT.
SetWindow2D
VL_THREEDL
SetView3D
SetPerspective
SetDepthBufferE
VL_ALLFIT
ViewerReset
POINT3D
surf]
sknot9
tknot
ObjectMotion2D
short
BeginDoubleBuffer
VL_RED
animate_lengthH
ClearViewer
VL_GRAY*
BrushColor
VL_GREEN
Flower2D
Rotate2DB
UpdateDoubleBuffer
MoveViewer2D
Scale2D
EndDoubleBuffer
SetViewerName/
RotateStarx
viewer35
SolidStarn
break
MoveViewer3D
Rotate3DR
Object3DG
Scale3D
SpringQ
VL_NONE`
Translate3D
PushTransformation3D
Tetrahedron
Octahedron
PopTransformation3D
RotateSurface
VL_TWOSIDESHADE
NURBSSurfaceN
VL_3D
LPCOORD
RotateDodecahedron
viewer33|
Dodecahedron
DepthBufferT
ShadingMethod
twosideshade
BackFaceRemovalp
light0?
Surfaces
WORDX
viewer30
ClearDepthBuffer
xffff^
switchv
IDM_SURFACE_BEZIER
BezierSurfaceo
Net3D
PolyMark3Dn
VL_CIRCLEMARK
IDM_SURFACE_HERMIT(
HermitSurface
IDM_SURFACE_BSPLINE
BSplineSurface
IDM_SURFACE_NURBS
VL_BOXMARK
IDM_SURFACE_COONSPATCH
CoonsPatcha
VOIDED
ShowSolidPrimitives
IDM_SOLID_TUBE]
SolidRing
IDM_SOLID_TORUST
TranslateTo3D.
Torus
WedgedTorus
IDM_SOLID_SPHERE
WedgedSphere`
IDM_SOLID_ELLIPSOID
Ellipsoid
IDM_SOLID_CYLINDERl
WedgedCylinder
SolidPie
IDM_SOLID_CONES
WedgedCone
IDM_SOLID_TETRAHEDRON
MarkPosition3D
VL_CROSSHAIR*
IDM_SOLID_OCTAHEDRON+
VL_ORIGIND
IDM_SOLID_DODECAHEDRON{
IDM_SOLID_ICOSAHEDRON
Icosahedronq
IDM_SOLID_FRUSTUM
Frustum&
IDM_SOLID_RIDGEb
Ridge
IDM_SOLID_BOX?
IDM_SOLID_STARF
IDM_SOLID_FLOWER
SolidFlower
halign[
TA_CENTERD
valign<
TA_BASELINE3
ShowTextPrimitives5
func6
[40]@
wsprintf
IDM_TEXT_2D
viewer20
TextParameter
VL_TEXT_HEIGHT
SetTextAlign
Text2D
IDM_TEXT_3D
VL_YELLOW
TA_LEFT
TA_BOTTOM
Text3D
TA_RIGHT
TA_TOP
IDM_TEXT_SOLID
VL_TEXT_THICKNESS
SolidText
SelectObject
GetStockObject
SYSTEM_FONT
MirrorTransf3D
Mirror3D
PointScaleTransf3D
PointScale3D
CompositeDemo3D
Spherer
DepthClippingDemo
MarbleRingDemof
textureN
SolidTexture
VL_MARBLE
WoodSurfaceDemo
VL_WOODGRAINS
GraniteCubeDemo
VL_GRANITE
StereoTextDemo
Welcome
Pushtransformation2d
setfont
PopTransformation2dI
BumpyDonutDemo
VL_BUMPY
VlibDemo
backfaceoff
light5
light6u
Form_Unload@
Cancel
ExitVisualib
SetRGBPa
SetRGBPalette
Form_Activate
hObject
nIndex
wFlags
VL_GREYM
visibleL
enabled
panel3d2
Panel3D1_DragDrop
Source^
Control
currentxX
currenty
LightCoordinateType
SetLightDirection
LightColor
SetLightLocation*
SetSpotlightSpread
MaterialSpecular
MaterialAmbient
MaterialDiffuse1
MaterialShininess
LocalViewer
mnuFile_ClickA
VL_WIREFRAME
NewLight
ViewerNamep
CleanViewer
NewMaterial
NewViewer
SetViewerFrame
right
bottom
lpstr
lstrcpy
SelectPalette
hPalette
bForceBackground
RealizePalette
PROGRAM:
Vlibdemo
PURPOSE:
To demonstrate the usage of Visualib(TM) functions.
PROVIDER: Visual Tech Co.
P.O.Box 8735
Fort Wayne, IN 46898-8735
Tel. (219) 289-0235
Fax. (816) 746-6618
DATE:
Januray 1994
kernel
Clear_Click
Welcome to
VISUALIB
Welcome
2D Objects
PenColor hdc, VL_NONE
3D Obejects
Ellipsoid
Dodecahedron
Visualib
Solid Text
3D Composite
MarkPosition3D (hdc, 0, 0, 0, 10, VL_ORIGIN)R
Icosahedron
s% = ShadingOption(VL_CURRENT, VL_TWOSIDESHADE, 0)
Torus
s% = ShadingOption(VL_CURRENT, VL_TWOSIDESHADE, 1)
NURBS surface
Visual Tech Co
currenty = 1200
PO Box 8735
currenty = 1200
Fort Wayne, IN 46898-8735
Form_Activate
Form_Load
Form_Unload
mnuFileExit_Click
Spin1_SpinDown
Spin1_SpinUp